home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / SPLINE.ARC / MOVEIT.CTL < prev    next >
Encoding:
Text File  |  1985-11-20  |  5.5 KB  |  124 lines
  1. ;                               MOVING BALL                             
  2. ;                    Cyber Control motion demonstration                 
  3. ;                              by Dann Parks                            
  4. ;                   Copyright 1989 Antic Publishing, Inc.               
  5. ;-----------------------------------------------------------------------
  6.  
  7. new:view solid:draft:;               This part sets up the basic        
  8. cam 1 20,20,0:;                      parameters of the view. Boosting   
  9. zoom 175:perspec 999:ambient 2:;     the ambient light helps the ball   
  10. clrbgnd:;                            stand out against the background.  
  11. ;-----------------------------------------------------------------------
  12. defpt 1,-1500,-1500,1000:;           These are the points for the       
  13. defpt 1,-2000,2000,666:;             movement spline.                   
  14. defpt 1,2000,2000,333:
  15. defpt 1,2000,-2000,0
  16. defpt 1,-2000,-2000,-333
  17. defpt 1,-2000,2000,-666
  18. defpt 1,1500,1500,-1000
  19.  
  20. defspline 1,1001,b:;                 This creates the movement spline   
  21. ;                                    divided into 1001 segments.        
  22. ;-----------------------------------------------------------------------
  23. ;                                    This section (and the sub-routines 
  24. ;                                    at the end of the program) builds  
  25. ;                                    the dialog box to allow you to     
  26. ;                                    choose the type of control spline. 
  27.  
  28. @INFO
  29. input "Use Control Point Set:1,2,3,4(.3D2 File)",choice
  30. if choice=1 then gosub CONTROL1
  31. if choice=2 then gosub CONTROL2
  32. if choice=3 then gosub CONTROL3
  33. if choice=4 then gosub CONTROL4
  34. if choice<1 then bell:goto INFO
  35. if choice>4 then bell:goto INFO
  36. ;-----------------------------------------------------------------------
  37.  
  38. defspline 2,60,b:;              *    This defines the control spline    
  39. ;                                    based on the information in the    
  40. ;                                    sub-routines or the .3D2 file.
  41. ;-----------------------------------------------------------------------
  42.  
  43. sph3 ball,14:;                       This builds the ball and scales it.
  44. group a:clrgrp:select ball
  45. scale 50
  46. ;-----------------------------------------------------------------------
  47. cube mkr,7:;                     *   This makes the marker that will be 
  48. group d:clrgrp:select mkr:;      *   moved along the control spline.    
  49. for shrink=1 to 4:;              *
  50. scale 50:;                       *
  51. next shrink:;                    *
  52. ;-----------------------------------------------------------------------
  53. cube table,7:;                       The table is just a visual element 
  54. group b:clrgrp:select table:;        to help aid in perception of       
  55. for squish=1 to 5:;                  movement. It is made from a cube,  
  56. axisscale 120,120,50:;               scaled and moved into position.    
  57. next squish
  58. xlate 0,0,-1500
  59. ;-----------------------------------------------------------------------
  60. for move=0 to 59:;                     *   This is the main loop.       
  61.  
  62. group d:clrgrp:select mkr:;            *   It selects the marker, moves 
  63. moveto s2x(move),s2y(move),s2z(move):; *   it to the next position on   
  64. grpcent xpos,ypos,zpos:;               *   the control spline (S2) and  
  65. place=int (ypos):;                     *   determines its coordinates.  
  66. if place<0 then place=0:;              *   The Y coord. is then used    
  67. if place>1000 then place=1000:;        *   as the position on the       
  68. ;                                          movement spline (S1) to      
  69. group a:clrgrp:select ball:;           *   which the ball is moved.     
  70. moveto s1x(place),s1y(place),s1z(place):;*
  71. ;-----------------------------------------------------------------------
  72. group b:clrgrp:select ball,table:;         The objects are selected     
  73. superview:record:;                         and recorded.
  74.  
  75. next move
  76. ;-----------------------------------------------------------------------
  77. rstop
  78. end
  79. ;-----------------------------------------------------------------------
  80. @CONTROL1:;                          These are the sub-routines that    
  81. defpt 2,0,0,0:;                      determine the shape of the control 
  82. defpt 2,-500,0,0:;                   splines. You can manipulate the    
  83. defpt 2,-500,500,0:;                 points here as numbers, or as      
  84. defpt 2,-500,1000,0:;                objects in the CONTROL.3D2 file.
  85. defpt 2,0,1000,0
  86. rstart "A:\CONTROL1",M
  87. RETURN
  88.  
  89. @CONTROL2
  90. defpt 2,0,0,0
  91. defpt 2,-500,0,0
  92. defpt 2,-500,500,0
  93. defpt 2,500,500,0
  94. defpt 2,500,700,0
  95. defpt 2,0,1000,0
  96. rstart "A:\CONTROL2",M
  97. RETURN
  98.  
  99. @CONTROL3
  100. defpt 2,0,0,0
  101. defpt 2,-500,500,0
  102. defpt 2,-500,1000,0
  103. defpt 2,500,1000,0
  104. defpt 2,0,500,0
  105. rstart "A:\CONTROL3",M
  106. RETURN
  107.  
  108. @CONTROL4
  109. merge3d "A\CONTROL.3D2":;                                *
  110. group a:clrgrp:select box1:grpcent box1x,box1y,box1z:;   *
  111. group a:clrgrp:select box2:grpcent box2x,box2y,box2z:;   *
  112. group a:clrgrp:select box3:grpcent box3x,box3y,box3z:;   *
  113. group a:clrgrp:select box4:grpcent box4x,box4y,box4z:;   *
  114. group a:clrgrp:select box5:grpcent box5x,box5y,box5z:;   *
  115.  
  116. defpt 2,box1x,box1y,box1z:;                               *
  117. defpt 2,box2x,box2y,box2z:;                               *
  118. defpt 2,box3x,box3y,box3z:;                               *
  119. defpt 2,box4x,box4y,box4z:;                               *
  120. defpt 2,box5x,box5y,box5z:;                               *
  121. rstart "A:\CONTROL4",M
  122. RETURN
  123.  
  124.